library(tidyverse)
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
㠼㸱攼㸳 ggplot2 3.3.2     㠼㸱攼㸳 purrr   0.3.4
㠼㸱攼㸳 tibble  3.0.1     㠼㸱攼㸳 dplyr   1.0.0
㠼㸱攼㸳 tidyr   1.1.0     㠼㸱攼㸳 stringr 1.4.0
㠼㸱攼㸳 readr   1.3.1     㠼㸱攼㸳 forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()
library(plotly)

 㠼㹥㤼㹦㠼㸲̃p㠼㸳b㠼㸳P㠼㸱[㠼㸳W㠼㸲昼㸰㤼㸵t㠼㸲愼㹦㠼㸹挼㸱㠼㸲愼㸶㠼㸲܂戼㸷: 㠼㸱eplotly㠼㸱f 

 㠼㸸ȉ戼㹡㠼㸲̃I㠼㸳u㠼㸳W㠼㸳F㠼㸳N㠼㸳g㠼㸲挼㹤 㠼㸱epackage:ggplot2㠼㸱f 㠼㸲愼㸹㠼㸲攼㸷㠼㸳}㠼㸳X㠼㸳N㠼㸲戼㸳㠼㸲攼㹡㠼㸲Ă愼㸲㠼㸲܂戼㸷: 

     last_plot 

 㠼㸸ȉ戼㹡㠼㸲̃I㠼㸳u㠼㸳W㠼㸳F㠼㸳N㠼㸳g㠼㸲挼㹤 㠼㸱epackage:stats㠼㸱f 㠼㸲愼㸹㠼㸲攼㸷㠼㸳}㠼㸳X㠼㸳N㠼㸲戼㸳㠼㸲攼㹡㠼㸲Ă愼㸲㠼㸲܂戼㸷: 

     filter 

 㠼㸸ȉ戼㹡㠼㸲̃I㠼㸳u㠼㸳W㠼㸳F㠼㸳N㠼㸳g㠼㸲挼㹤 㠼㸱epackage:graphics㠼㸱f 㠼㸲愼㸹㠼㸲攼㸷㠼㸳}㠼㸳X㠼㸳N㠼㸲戼㸳㠼㸲攼㹡㠼㸲Ă愼㸲㠼㸲܂戼㸷: 

     layout 
library(pracma)

 㠼㹥㤼㹦㠼㸲̃p㠼㸳b㠼㸳P㠼㸱[㠼㸳W㠼㸲昼㸰㤼㸵t㠼㸲愼㹦㠼㸹挼㸱㠼㸲愼㸶㠼㸲܂戼㸷: 㠼㸱epracma㠼㸱f 

 㠼㸸ȉ戼㹡㠼㸲̃I㠼㸳u㠼㸳W㠼㸳F㠼㸳N㠼㸳g㠼㸲挼㹤 㠼㸱epackage:purrr㠼㸱f 㠼㸲愼㸹㠼㸲攼㸷㠼㸳}㠼㸳X㠼㸳N㠼㸲戼㸳㠼㸲攼㹡㠼㸲Ă愼㸲㠼㸲܂戼㸷: 

     cross 
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cix3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KHBsb3RseSkNCmBgYA0KDQpgYGB7cn0NCmNvYmJfZG91Z2xhcyA8LSBmdW5jdGlvbih4LCB5LCBBLCBhbHBoYSkgew0KICBBICogeCBeIGFscGhhICogeSBeICgxIC0gYWxwaGEpDQp9DQpgYGANCg0KYGBge3J9DQpBIDwtIDENCmFscGhhIDwtIDEgLyAzDQoNCi5tZXNoX2dyaWQgPC0gcHJhY21hOjptZXNoZ3JpZChzZXEoMCwgNSwgMC4xKSkNClggPC0gLm1lc2hfZ3JpZCRYDQpZIDwtIC5tZXNoX2dyaWQkWQ0KWiA8LSBjb2JiX2RvdWdsYXMoWFkkWCwgWFkkWSwgQSwgYWxwaGEpDQoNCnBsb3RfbHkoeCA9IFgsDQogICAgICAgIHkgPSBZLA0KICAgICAgICB6ID0gWikgJT4lIA0KICBhZGRfc3VyZmFjZSgpDQpgYGANCg0K